(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     36106,        900]
NotebookOptionsPosition[     27253,        707]
NotebookOutlinePosition[     27924,        733]
CellTagsIndexPosition[     27845,        728]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.2", "HistoryData",
  CellTags->"New",ExpressionUUID->"72559eee-b450-4c8c-8dcf-8cc943e05c07"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"f8fa4985-d58d-457f-b3e2-012735bed1be"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"565586fc-3356-4e28-b3c3-a07b84ebbcbd"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"86f063e2-a1ca-4109-8c47-f1af68924975"]
}], "History",
 CellID->1247902091,ExpressionUUID->"62f52c59-35f7-470f-bd3b-063303b29f92"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"d8da1cea-d0b7-4ad5-983f-fcc343de57a4"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"4372a95d-2ffe-4341-bb92-0c40f94a0c55"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836619883459*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"5b996c71-28f5-41a4-be9d-f05dfb108485"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.7438366202333937`*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"77677731-b510-4a01-bb6e-3d49f3a29cd2"],

Cell["MaXrd/ref/MillerNotationToList", "Categorization",
 CellChangeTimes->{3.743836620553048*^9},
 CellLabel->"URI",ExpressionUUID->"ee3af963-a0f2-49a9-b4d7-8e73991d55d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"6899c983-f59c-487b-a6ba-cff0b858f891"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"fc693456-c74b-4b55-aad7-e3abb79e9aeb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"e7bf8d7f-d55b-48bc-9f36-7f68e809db48"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"64dd9535-ac4a-4b57-bc28-75b00c1417cb"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"ac67002e-7daa-4c89-b59f-278635198dee"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"f40bb501-3592-4137-903e-c142e7d02fe3"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"de15b258-83d1-46a8-8e94-46e8ddc5cabf"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"d18e89c3-2809-42e6-83f5-b1782aedb034"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"a35d031c-c491-44e8-bbe9-1fd6ee7491c9"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"60e4bf97-c196-4aba-b656-fb0662f18a80"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"0142606b-fc70-4007-b2ab-0a734e1db748"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"12f183f7-e917-43ef-b4aa-da91046e347b"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"eecdf48a-3b6e-480a-b236-570b6bd853e7"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"15973865-4953-4fd9-950c-88733ffd0eb2"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"87825b96-8677-4571-a65e-7be5d4296b4b"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"51d02cd8-4062-4369-9c91-b85c53c58c3b"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"61639284-d817-4f18-b799-386817eedd9a"]
}, Closed]],

Cell[CellGroupData[{

Cell["MillerNotationToList", "ObjectName",
 CellID->1224892054,ExpressionUUID->"65fd9db4-ea10-4f3a-83cf-05c286e3bc97"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"9d439603-7b64-404c-bc34-4b75ba9926f3"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["MillerNotationToList",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/MillerNotationToList"], "[", 
   StyleBox["hkl", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "8fce1607-20fd-4da2-8c24-3fc5c8ac53f3"],
 " \[LineSeparator]converts Miller index string ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "dd36b329-9d72-44a7-888b-8a818aa33782"],
 " to an expression on the form ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{"h", ",", "k", ",", "l"}], "}"}]], "InlineFormula",ExpressionUUID->
  "df23e61d-96ca-45d5-9b60-738ab99a3cc2"],
 "."
}], "Usage",
 CellChangeTimes->{{3.6678915486403522`*^9, 3.667891672538952*^9}, {
  3.667892097116899*^9, 3.6678921198124037`*^9}, {3.6678924719994993`*^9, 
  3.6678924720616207`*^9}, {3.7379684258533278`*^9, 3.737968425853434*^9}},
 CellID->982511436,ExpressionUUID->"82b46889-214d-447c-be29-e8fca6a01092"],

Cell["\<\
Overbars must be typed using underscores as overscripts. This may be done by \
first highlighting the digit, then pressing \[ControlKey]+7 (for overscript) \
and finally inserting an underscore (_) in the box above.\
\>", "Notes",
 CellChangeTimes->{{3.669560388114991*^9, 3.6695604041605787`*^9}, {
  3.669560437951807*^9, 3.669560487350461*^9}, {3.669560607149558*^9, 
  3.669560679233862*^9}, {3.669560746641282*^9, 3.6695607514320297`*^9}, {
  3.669560783552546*^9, 3.6695608203504763`*^9}, {3.669561099945606*^9, 
  3.669561171982006*^9}, {3.6695612227497673`*^9, 3.669561234524822*^9}},
 CellID->1851698817,ExpressionUUID->"bd330a55-48a9-4d5b-947b-e651b4737dbc"],

Cell["\<\
Any indices that are numbers are converted to expressions; strings remain \
strings.\
\>", "Notes",
 CellChangeTimes->{{3.712728083639862*^9, 3.712728128360079*^9}},
 CellID->984583207,ExpressionUUID->"c5da899f-94b9-4276-a04d-06c86a97d1bd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"400af538-3ab7-444d-9320-4c0c1a4877d9"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"6c135b60-68a6-4212-9990-c2b61dcc8507"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"90b9ce19-1f27-4e57-b4c7-6c9ca15907df"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"ac97c69f-0d30-4d0b-8dc3-46cc6f3e221a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"a65dfb03-8c41-4344-885b-da5bd2c20837"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"90a5bd78-33ab-48ee-8cb0-363a52c23dbd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"4d3f0ec1-4999-401e-a8e6-e15720a72601"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["MillerNotationToString",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/MillerNotationToString"]], "InlineFormula",
  ExpressionUUID->"44dcdab3-411e-49df-b000-f1ebbee8c9f5"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ToStandardSetting",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ToStandardSetting"]], "InlineFormula",
  ExpressionUUID->"c1452323-bb81-4572-8ac9-3edcae084f9e"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["GetCrystalMetric",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetCrystalMetric"]], "InlineFormula",
  ExpressionUUID->"9dce8255-42a3-459c-99db-ab186f222311"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["SymmetryEquivalentReflectionsQ",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/SymmetryEquivalentReflectionsQ"]], 
  "InlineFormula",ExpressionUUID->"df659e2b-1c8c-4267-81f2-535822643283"]
}], "SeeAlso",
 CellChangeTimes->{{3.68449044010361*^9, 3.684490484518862*^9}, {
  3.6844905324134693`*^9, 3.6844905334535017`*^9}, {3.730210431754361*^9, 
  3.730210434323365*^9}, {3.7378731372056303`*^9, 3.737873162310704*^9}, {
  3.7379682695403*^9, 3.737968269540456*^9}, {3.737968478747694*^9, 
  3.737968478747813*^9}},
 CellID->929782353,ExpressionUUID->"62881cb4-29f5-4f52-be07-55c74fb774a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"1c5a49d5-119b-4b5a-86c3-0ff2088066cc"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"a1cbd318-3b86-4380-9c05-44c548e46ee8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"88ca3d2b-219a-45eb-83e8-c702e07a3b84"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MillerNotationToList", "[", 
  "\"\<(\!\(\*OverscriptBox[\(2\), \(_\)]\)1\!\(\*OverscriptBox[\(4\), \(_\)]\
\))\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.667891802020266*^9, 3.6678918277434196`*^9}, 
   3.737968425935049*^9},
 CellLabel->"In[1]:=",
 CellID->1946150671,ExpressionUUID->"3ee5631c-0aa1-4161-8438-50687d2732ca"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"-2\"\>", ",", "\<\"1\"\>", ",", "\<\"-4\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.6678918437933607`*^9, {3.712727898829316*^9, 3.712727905522027*^9}, 
   3.7127280601510363`*^9, 3.7301425185795317`*^9},
 CellLabel->"Out[1]=",
 CellID->1526240739,ExpressionUUID->"5c9b02f7-a5d1-4349-9d5d-cc813c5a1430"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "615641a6-0f22-4b7f-aa42-fa5b84fbaa9d"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1963503177,ExpressionUUID->"e635e6b6-48d8-4f7e-bf8d-a743b8859194"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MillerNotationToList", "[", "\"\<(301)\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6678918314153214`*^9, 3.667891831679112*^9}, {
   3.7127267846105757`*^9, 3.712726785456868*^9}, {3.7127268374013243`*^9, 
   3.712726837943409*^9}, 3.737968426048897*^9},
 CellLabel->"In[1]:=",
 CellID->937986465,ExpressionUUID->"704978d3-1be2-48f7-a057-17f398b385f1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"3\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>"}], "}"}]], "Output",\

 CellChangeTimes->{
  3.6678918448645372`*^9, {3.712726773560935*^9, 3.712726801509492*^9}, 
   3.7127268390118427`*^9, 3.712728062521577*^9, 3.730142524346282*^9},
 CellLabel->"Out[1]=",
 CellID->306956156,ExpressionUUID->"d1d317e3-3c99-46d2-86f1-1d740d0db22e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "ed20d2ca-f4f3-4dc5-b94c-d6f492176bb2"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->216692390,ExpressionUUID->"e74020da-f55e-4469-b8d5-96f0d7df6176"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MillerNotationToList", "[", 
  "\"\<(11,0,\!\(\*OverscriptBox[\(7\), \(_\)]\))\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.667891837223261*^9, 3.667891841831015*^9}, 
   3.737968426149583*^9},
 CellLabel->"In[1]:=",
 CellID->61064628,ExpressionUUID->"251e6948-6871-4237-82ec-06db230f6c84"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"11\"\>", ",", "\<\"0\"\>", ",", "\<\"-7\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6678918455200567`*^9, 3.7127280645303993`*^9, 
  3.730142526538279*^9},
 CellLabel->"Out[1]=",
 CellID->512773679,ExpressionUUID->"53726e81-b555-471e-adf3-22e650ef7881"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "8a212ee0-5e99-4738-96f8-936807301717"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->1164777885,ExpressionUUID->"058c0f94-7cc6-4f96-8fb3-08744bf090d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MillerNotationToList", "[", 
  "\"\<(\!\(\*OverscriptBox[\(h\), \(_\)]\)k0)\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.712651749976063*^9, 3.7126517734758873`*^9}, {
   3.7126519228741627`*^9, 3.712651923064446*^9}, {3.712652062373938*^9, 
   3.7126520644134207`*^9}, {3.712657267713977*^9, 3.712657269065981*^9}, {
   3.712723395899455*^9, 3.712723402482656*^9}, {3.712726859439519*^9, 
   3.71272694247049*^9}, 3.737968426243588*^9},
 CellLabel->"In[1]:=",
 CellID->2043997614,ExpressionUUID->"f05f146e-2696-45ca-956f-c2a9a076aeb5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"-h\"\>", ",", "\<\"k\"\>", ",", "\<\"0\"\>"}], "}"}]], "Output",\

 CellChangeTimes->{3.71272694292584*^9, 3.71272716467117*^9, 
  3.7127277853502407`*^9, 3.71272806985852*^9, 3.730142528241309*^9},
 CellLabel->"Out[1]=",
 CellID->812832118,ExpressionUUID->"759bedc2-0c1d-4e2f-b1c9-2f923ca29ada"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"71a478ec-b8d6-45e5-9789-2674bb4e66c1"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "f3abdcf0-cfe4-499d-b6c8-2ed71663ce0a"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"45137a3a-12fa-4de2-a3af-56373cbdf9b1"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "221dfa64-ac4c-4e0c-9bd9-6d14441850f8"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"41de90a2-6f88-4199-a52a-70224033e03d"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "a9fc1b76-0fa9-4799-8e38-88f314afff6f"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"7470cbf2-ff60-4e32-b538-5949d1bc6a06"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "839fa639-f65a-4ede-a6e8-d0bbcf257c9f"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"c78fd752-a561-49b1-a860-885b0cce68d4"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "6298fa81-adc8-41ba-8fdf-2431bba4c38a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"f4cb15be-704b-4152-a9f2-4d6a2fbc62de"]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "62cbabfc-5906-4f7c-a0d0-531610d631da"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"58864247-f527-4fe6-a27f-806909937420"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "b830ce54-71cf-4d70-bc7f-103509638e24"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"1d14288b-a386-479b-8f7a-1fb60b88c7ca"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "fa8c7410-7f79-40b7-baf1-05043b5bd7aa"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"cf1ab9b5-a379-423e-bc92-253250852ea4"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "1db3cdeb-a552-43eb-a6d5-e707778bbd36"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"06989cc1-397c-4e67-b900-fdcde770a749"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "85168f00-4e61-4a1b-b13e-9d4fb0ed1868"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"9580315e-2d12-4480-bcbb-e21cf0a1f147"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"c9245ea4-86b8-4a1c-b648-c49a0ca3fee4"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.684490569516807*^9, 3.684490573561438*^9}},
 CellID->1613039309,ExpressionUUID->"ac364c39-8827-4441-ac36-ecef559061d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "MillerNotationToList"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", "_", "}"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.756716439999579*^9, 3.756716444405992*^9}},
 CellLabel->"In[795]:=",
 CellID->1068231323,ExpressionUUID->"90c71059-99d2-4679-b6cd-697d1fce02b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MillerNotationToList", "[", "input_String", "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"L", ",", "R", ",", "temp", ",", "split"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Removing", " ", "overbars"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"L", "=", "\"\<\\!\\(\\*OverscriptBox[\\(\>\""}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"R", "=", "\"\<\\), \\(_\\)]\\)\>\""}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"StringReplace", "[", 
       RowBox[{"input", ",", 
        RowBox[{
         RowBox[{"L", "~~", 
          RowBox[{"Shortest", "@", "x__"}], "~~", "R"}], "\[RuleDelayed]", 
         RowBox[{
         "\"\<|\>\"", "<>", "\"\<-\>\"", "<>", "x", "<>", "\"\<|\>\""}]}]}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Separating", " ", "indices"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"StringReplace", "[", 
       RowBox[{"temp", ",", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "Sign", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"s", ":", 
           RowBox[{"{", 
            RowBox[{"\"\<\>\"", ",", "\"\<-\>\"", ",", "\"\<|\>\""}], "}"}]}],
           "~~", "\[IndentingNewLine]", 
          RowBox[{"{", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{
            "Letters", " ", "are", " ", "not", " ", "joined", " ", "with", 
             " ", "digits"}], " ", "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"x", ":", "LetterCharacter"}], ",", "\[IndentingNewLine]", 
            RowBox[{"(*", " ", 
             RowBox[{"Digits", " ", "could", " ", "be", " ", "joined"}], " ", 
             "*)"}], "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"d", ":", "DigitCharacter"}], "~~", 
             "\[IndentingNewLine]", 
             RowBox[{"y", ":", 
              RowBox[{"Shortest", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{"\"\<|\>\"", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"DigitCharacter", ".."}], "~~", 
                  RowBox[{"{", 
                   RowBox[{"\"\<,\>\"", ",", "\"\<|\>\"", ",", "\"\<)\>\""}], 
                   "}"}]}]}], "\[IndentingNewLine]", "}"}], "]"}]}]}]}], 
           "\[IndentingNewLine]", "}"}]}], "\[RuleDelayed]", 
         RowBox[{
         "\"\<|\>\"", "<>", "s", "<>", "x", "<>", "d", "<>", "y", "<>", 
          "\"\<|\>\""}]}]}], "\[IndentingNewLine]", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"StringReplace", "[", 
       RowBox[{"temp", ",", 
        RowBox[{"\"\<|\>\"", "\[Rule]", "\"\<,\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"StringSplit", "[", 
       RowBox[{"temp", ",", "\"\<,\>\""}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Special", " ", 
       RowBox[{"case", ":", " ", 
        RowBox[{"Positive", " ", "single", " ", 
         RowBox[{"digits", "/", "letters"}], " ", "only"}]}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", 
      StyleBox["[", "Code"], 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "@", "temp"}], "<", "3"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"temp", "=", 
         RowBox[{"StringCases", "[", 
          RowBox[{"temp", ",", 
           RowBox[{
            RowBox[{"x", ":", "WordCharacter"}], "\[RuleDelayed]", "x"}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"temp", "=", 
         RowBox[{"Flatten", "@", 
          RowBox[{"DeleteCases", "[", 
           RowBox[{"temp", ",", 
            RowBox[{"{", "}"}]}], "]"}]}]}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Trimming", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"StringDelete", "[", 
       RowBox[{"temp", ",", 
        RowBox[{"{", 
         RowBox[{"\"\<(\>\"", ",", "\"\<)\>\""}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"DeleteCases", "[", 
       RowBox[{"temp", ",", 
        RowBox[{"x_", "/;", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<\>\"", ",", "Null", ",", "\"\<{}\>\""}], "}"}], ",", 
           "x"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"If", " ", "not", " ", "three", " ", "entires"}], ",", " ", 
       RowBox[{"split", " ", "digits"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"split", "[", "x_", "]"}], ":=", 
      RowBox[{"Flatten", "@", 
       RowBox[{"StringCases", "[", 
        RowBox[{"x", ",", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"p", ":", 
              RowBox[{"{", 
               RowBox[{"\"\<\>\"", ",", "\"\<-\>\""}], "}"}]}], "~~", 
             RowBox[{"n", ":", "DigitCharacter"}]}], "\[RuleDelayed]", 
            RowBox[{"p", "~~", "n"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"n1", ":", "DigitCharacter"}], "~~", 
             RowBox[{"n2", ":", "DigitCharacter"}]}], "\[RuleDelayed]", 
            RowBox[{"{", 
             RowBox[{"n1", ",", "n2"}], "}"}]}]}], "\[IndentingNewLine]", 
          "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"temp", "/.", 
       RowBox[{
        RowBox[{"x_List", "/;", 
         RowBox[{
          RowBox[{"Length", "[", "x", "]"}], "<", "3"}]}], "\[RuleDelayed]", 
        RowBox[{"split", "[", "x", "]"}]}]}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Setting", " ", "numbers", " ", "as", " ", "experssions"}], " ",
       "*)"}], "\[IndentingNewLine]", 
     RowBox[{"temp", "/.", 
      RowBox[{
       RowBox[{"x_String", "/;", 
        RowBox[{"StringContainsQ", "[", 
         RowBox[{"x", ",", "DigitCharacter"}], "]"}]}], "\[RuleDelayed]", 
       RowBox[{"ToExpression", "[", "x", "]"}]}]}]}]}], "\[IndentingNewLine]",
    "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.71265181170818*^9, 3.71265184851582*^9}, {
   3.712652095518579*^9, 3.712652257498863*^9}, 3.71265239748778*^9, {
   3.71265244571208*^9, 3.7126524481825333`*^9}, {3.7126526553150253`*^9, 
   3.71265266634685*^9}, {3.7126544272990713`*^9, 3.7126544608744907`*^9}, {
   3.712654491008285*^9, 3.712654513440096*^9}, {3.712654550942759*^9, 
   3.712654670547868*^9}, {3.712654703821003*^9, 3.712654741083172*^9}, {
   3.7126572447956333`*^9, 3.71265724552361*^9}, {3.7126573384427958`*^9, 
   3.712657409919541*^9}, {3.712657442783066*^9, 3.7126575394046917`*^9}, {
   3.712657574141005*^9, 3.712657877853153*^9}, {3.712657916505589*^9, 
   3.712657926412139*^9}, {3.712657958155428*^9, 3.7126580079624166`*^9}, {
   3.712658051969553*^9, 3.712658055873343*^9}, {3.71265910828284*^9, 
   3.712659135617361*^9}, {3.7126592131276484`*^9, 3.71265921347163*^9}, {
   3.712659259014515*^9, 3.7126594153067408`*^9}, {3.7126594508836*^9, 
   3.712659478377791*^9}, {3.7126595314564962`*^9, 3.7126595319043083`*^9}, {
   3.712659580336278*^9, 3.712659593718773*^9}, {3.71265962760645*^9, 
   3.712659696409937*^9}, {3.712659779410568*^9, 3.712659796570158*^9}, {
   3.7127232179121027`*^9, 3.712723229072281*^9}, {3.712723277198616*^9, 
   3.712723280222929*^9}, 3.7127233136458893`*^9, {3.712723486689425*^9, 
   3.7127235463119698`*^9}, {3.712723798706465*^9, 3.7127238719521513`*^9}, {
   3.712723903031745*^9, 3.712724002493475*^9}, {3.712724277432616*^9, 
   3.712724372844721*^9}, {3.7127244033803263`*^9, 3.7127245266898813`*^9}, {
   3.712724809955243*^9, 3.712724840289219*^9}, {3.712724885592177*^9, 
   3.712724888296068*^9}, {3.7127251133317757`*^9, 3.7127251193874807`*^9}, {
   3.712725321551262*^9, 3.7127254430142107`*^9}, {3.712725492618681*^9, 
   3.71272563230217*^9}, {3.712725684446393*^9, 3.712725711940311*^9}, {
   3.7127257433872843`*^9, 3.71272585209263*^9}, {3.712725885065549*^9, 
   3.71272600940621*^9}, {3.712726073572926*^9, 3.712726127066513*^9}, {
   3.712726177392968*^9, 3.712726178104968*^9}, {3.71272621473763*^9, 
   3.712726243943431*^9}, {3.712726332173551*^9, 3.712726360589281*^9}, {
   3.712726422612451*^9, 3.712726423847527*^9}, {3.712726521650385*^9, 
   3.71272659331116*^9}, {3.712726652214963*^9, 3.712726742067371*^9}, {
   3.712727206140136*^9, 3.7127272078411407`*^9}, {3.7127272390958357`*^9, 
   3.712727247711342*^9}, 3.712727323335806*^9, {3.712727411252993*^9, 
   3.7127274113952227`*^9}, {3.712727598072218*^9, 3.712727698157626*^9}, {
   3.712727740709833*^9, 3.7127277633311167`*^9}, {3.712727795986257*^9, 
   3.712727876712543*^9}, {3.7127280099270153`*^9, 3.71272801297314*^9}, {
   3.7172312671661167`*^9, 3.717231282002515*^9}, {3.7172313463954897`*^9, 
   3.717231376033064*^9}, {3.717231406601571*^9, 3.717231452543467*^9}, {
   3.7172316471403503`*^9, 3.7172316547383347`*^9}, {3.717231691578803*^9, 
   3.717231701833466*^9}, {3.7172317522655582`*^9, 3.717231761664892*^9}, {
   3.717231804824963*^9, 3.717231842701837*^9}, {3.71723209703476*^9, 
   3.717232117511814*^9}, {3.717232160832486*^9, 3.7172323308668337`*^9}, {
   3.7172323846671267`*^9, 3.717232387569281*^9}, {3.717232420625662*^9, 
   3.717232442809225*^9}, {3.717232480177041*^9, 3.717232486886738*^9}, {
   3.71723254374341*^9, 3.7172325701171293`*^9}, {3.71723271350712*^9, 
   3.717232736193582*^9}, {3.7172328302000628`*^9, 3.717232858494359*^9}, 
   3.7379684244868317`*^9, 3.76279309385152*^9, {3.7634624088251143`*^9, 
   3.763462410337265*^9}, {3.763462812791168*^9, 3.763462815249075*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[797]:=",
 CellID->800556741,ExpressionUUID->"671ff555-83bb-4f1d-a3ff-64ba97f4455b"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[13339, 391, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"71a478ec-b8d6-45e5-9789-2674bb4e66c1",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 27651, 721}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"62f52c59-35f7-470f-bd3b-063303b29f92",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"d8da1cea-d0b7-4ad5-983f-fcc343de57a4",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"4372a95d-2ffe-4341-bb92-0c40f94a0c55",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"5b996c71-28f5-41a4-be9d-f05dfb108485",
 CellID->605800465],
Cell[1624, 50, 174, 3, 30, "Categorization",ExpressionUUID->"77677731-b510-4a01-bb6e-3d49f3a29cd2",
 CellID->468444828],
Cell[1801, 55, 172, 2, 30, "Categorization",ExpressionUUID->"ee3af963-a0f2-49a9-b4d7-8e73991d55d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2010, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"6899c983-f59c-487b-a6ba-cff0b858f891",
 CellID->477174294],
Cell[2123, 65, 100, 1, 70, "Keywords",ExpressionUUID->"fc693456-c74b-4b55-aad7-e3abb79e9aeb",
 CellID->1164421360]
}, Closed]],
Cell[CellGroupData[{
Cell[2260, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"e7bf8d7f-d55b-48bc-9f36-7f68e809db48",
 CellID->1872225408],
Cell[2383, 74, 149, 2, 70, "Template",ExpressionUUID->"64dd9535-ac4a-4b57-bc28-75b00c1417cb",
 CellID->1562036412],
Cell[2535, 78, 137, 2, 70, "Template",ExpressionUUID->"ac67002e-7daa-4c89-b59f-278635198dee",
 CellID->158391909],
Cell[2675, 82, 136, 2, 70, "Template",ExpressionUUID->"f40bb501-3592-4137-903e-c142e7d02fe3",
 CellID->1360575930],
Cell[2814, 86, 137, 2, 70, "Template",ExpressionUUID->"de15b258-83d1-46a8-8e94-46e8ddc5cabf",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2988, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"d18e89c3-2809-42e6-83f5-b1782aedb034",
 CellID->307771771],
Cell[3099, 96, 118, 2, 70, "Details",ExpressionUUID->"a35d031c-c491-44e8-bbe9-1fd6ee7491c9",
 CellID->670882175],
Cell[3220, 100, 124, 2, 70, "Details",ExpressionUUID->"60e4bf97-c196-4aba-b656-fb0662f18a80",
 CellID->350963985],
Cell[3347, 104, 119, 2, 70, "Details",ExpressionUUID->"0142606b-fc70-4007-b2ab-0a734e1db748",
 CellID->8391405],
Cell[3469, 108, 124, 2, 70, "Details",ExpressionUUID->"12f183f7-e917-43ef-b4aa-da91046e347b",
 CellID->3610269],
Cell[3596, 112, 116, 2, 70, "Details",ExpressionUUID->"eecdf48a-3b6e-480a-b236-570b6bd853e7",
 CellID->401364205],
Cell[3715, 116, 116, 2, 70, "Details",ExpressionUUID->"15973865-4953-4fd9-950c-88733ffd0eb2",
 CellID->350204745],
Cell[3834, 120, 118, 2, 70, "Details",ExpressionUUID->"87825b96-8677-4571-a65e-7be5d4296b4b",
 CellID->732958810],
Cell[3955, 124, 133, 2, 70, "Details",ExpressionUUID->"51d02cd8-4062-4369-9c91-b85c53c58c3b",
 CellID->222905350],
Cell[4091, 128, 122, 2, 70, "Details",ExpressionUUID->"61639284-d817-4f18-b799-386817eedd9a",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4250, 135, 118, 1, 63, "ObjectName",ExpressionUUID->"65fd9db4-ea10-4f3a-83cf-05c286e3bc97",
 CellID->1224892054],
Cell[4371, 138, 1024, 23, 78, "Usage",ExpressionUUID->"82b46889-214d-447c-be29-e8fca6a01092",
 CellID->982511436],
Cell[5398, 163, 678, 10, 41, "Notes",ExpressionUUID->"bd330a55-48a9-4d5b-947b-e651b4737dbc",
 CellID->1851698817],
Cell[6079, 175, 250, 5, 25, "Notes",ExpressionUUID->"c5da899f-94b9-4276-a04d-06c86a97d1bd",
 CellID->984583207]
}, Open  ]],
Cell[CellGroupData[{
Cell[6366, 185, 112, 1, 44, "TutorialsSection",ExpressionUUID->"400af538-3ab7-444d-9320-4c0c1a4877d9",
 CellID->250839057],
Cell[6481, 188, 100, 1, 16, "Tutorials",ExpressionUUID->"6c135b60-68a6-4212-9990-c2b61dcc8507",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[6618, 194, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"90b9ce19-1f27-4e57-b4c7-6c9ca15907df",
 CellID->1268215905],
Cell[6759, 197, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"ac97c69f-0d30-4d0b-8dc3-46cc6f3e221a",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[6909, 203, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"a65dfb03-8c41-4344-885b-da5bd2c20837",
 CellID->1584193535],
Cell[7032, 206, 104, 1, 16, "RelatedLinks",ExpressionUUID->"90a5bd78-33ab-48ee-8cb0-363a52c23dbd",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[7173, 212, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"4d3f0ec1-4999-401e-a8e6-e15720a72601",
 CellID->1255426704],
Cell[7286, 215, 1343, 30, 38, "SeeAlso",ExpressionUUID->"62881cb4-29f5-4f52-be07-55c74fb774a5",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[8666, 250, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"1c5a49d5-119b-4b5a-86c3-0ff2088066cc",
 CellID->38303248],
Cell[8781, 253, 101, 1, 16, "MoreAbout",ExpressionUUID->"a1cbd318-3b86-4380-9c05-44c548e46ee8",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[8919, 259, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"88ca3d2b-219a-45eb-83e8-c702e07a3b84",
 CellID->880084151],
Cell[CellGroupData[{
Cell[9355, 274, 351, 7, 34, "Input",ExpressionUUID->"3ee5631c-0aa1-4161-8438-50687d2732ca",
 CellID->1946150671],
Cell[9709, 283, 356, 8, 25, "Output",ExpressionUUID->"5c9b02f7-a5d1-4349-9d5d-cc813c5a1430",
 CellID->1526240739]
}, Open  ]],
Cell[CellGroupData[{
Cell[10102, 296, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"e635e6b6-48d8-4f7e-bf8d-a743b8859194",
 CellID->1963503177],
Cell[CellGroupData[{
Cell[10370, 305, 377, 6, 26, "Input",ExpressionUUID->"704978d3-1be2-48f7-a057-17f398b385f1",
 CellID->937986465],
Cell[10750, 313, 372, 8, 25, "Output",ExpressionUUID->"d1d317e3-3c99-46d2-86f1-1d740d0db22e",
 CellID->306956156]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11171, 327, 242, 5, 17, "ExampleDelimiter",ExpressionUUID->"e74020da-f55e-4469-b8d5-96f0d7df6176",
 CellID->216692390],
Cell[CellGroupData[{
Cell[11438, 336, 314, 6, 34, "Input",ExpressionUUID->"251e6948-6871-4237-82ec-06db230f6c84",
 CellID->61064628],
Cell[11755, 344, 303, 7, 25, "Output",ExpressionUUID->"53726e81-b555-471e-adf3-22e650ef7881",
 CellID->512773679]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[12107, 357, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"058c0f94-7cc6-4f96-8fb3-08744bf090d2",
 CellID->1164777885],
Cell[CellGroupData[{
Cell[12375, 366, 560, 9, 34, "Input",ExpressionUUID->"f05f146e-2696-45ca-956f-c2a9a076aeb5",
 CellID->2043997614],
Cell[12938, 377, 340, 7, 25, "Output",ExpressionUUID->"759bedc2-0c1d-4e2f-b1c9-2f923ca29ada",
 CellID->812832118]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[13339, 391, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"71a478ec-b8d6-45e5-9789-2674bb4e66c1",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[13497, 395, 242, 5, 33, "ExampleSection",ExpressionUUID->"45137a3a-12fa-4de2-a3af-56373cbdf9b1",
 CellID->1293636265],
Cell[13742, 402, 265, 5, 21, "ExampleSection",ExpressionUUID->"41de90a2-6f88-4199-a52a-70224033e03d",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[14032, 411, 244, 5, 21, "ExampleSection",ExpressionUUID->"7470cbf2-ff60-4e32-b538-5949d1bc6a06",
 CellID->2061341341],
Cell[14279, 418, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"c78fd752-a561-49b1-a860-885b0cce68d4",
 CellID->1757724783],
Cell[14529, 425, 247, 5, 70, "ExampleSubsection",ExpressionUUID->"f4cb15be-704b-4152-a9f2-4d6a2fbc62de",
 CellID->1295379749]
}, Closed]],
Cell[14791, 433, 248, 5, 21, "ExampleSection",ExpressionUUID->"58864247-f527-4fe6-a27f-806909937420",
 CellID->258228157],
Cell[15042, 440, 259, 5, 21, "ExampleSection",ExpressionUUID->"1d14288b-a386-479b-8f7a-1fb60b88c7ca",
 CellID->2123667759],
Cell[15304, 447, 252, 5, 21, "ExampleSection",ExpressionUUID->"cf1ab9b5-a379-423e-bc92-253250852ea4",
 CellID->1305812373],
Cell[15559, 454, 257, 5, 21, "ExampleSection",ExpressionUUID->"06989cc1-397c-4e67-b900-fdcde770a749",
 CellID->1653164318],
Cell[15819, 461, 249, 5, 21, "ExampleSection",ExpressionUUID->"9580315e-2d12-4480-bcbb-e21cf0a1f147",
 CellID->589267740],
Cell[CellGroupData[{
Cell[16093, 470, 373, 8, 21, "ExampleSection",ExpressionUUID->"ac364c39-8827-4441-ac36-ecef559061d9",
 CellID->1613039309],
Cell[16469, 480, 474, 11, 65, "Input",ExpressionUUID->"90c71059-99d2-4679-b6cd-697d1fce02b8",
 InitializationCell->False,
 CellID->1068231323],
Cell[16946, 493, 10279, 210, 924, "Input",ExpressionUUID->"671ff555-83bb-4f1d-a3ff-64ba97f4455b",
 InitializationCell->False,
 CellID->800556741]
}, Closed]]
}, Open  ]]
}
]
*)

